#!/usr/bin/perl -w
print "Enter string";
@array = <STDIN>;
print reverse "@array";



